This sample code shows the use of the LastPageButtonClicked Event (Window Object). Modify the following sample code to fit your needs.
Dim rpt As CRPEAuto.Report
Dim rptView As CRPEAuto.View
Dim test As Integer 'Required.
Private Sub LastPageButtonClicked_Click()
'Starts up report window for window event LastPageButtonClicked
Dim rpt As CRPEAuto.Report
Dim rptView As CRPEAuto.View
Dim test As Integer
On Error GoTo ErrorHandler
Set rpt = crsApp.OpenReport(LongReport)
test = MsgBox("Event default: Enabled = " & _
rpt.EventInfo.PrintWindowButtonEventEnabled & _
Chr(13) & Chr(13) & "Disable event?", vbYesNo)
If test = vbYes Then
rpt.EventInfo.PrintWindowButtonEventEnabled = False
MsgBox "Check event does not occur when last page button clicked"
Else
rpt.EventInfo.PrintWindowButtonEventEnabled = True
test = MsgBox("Check event occurs when last page button clicked" & _
Chr(13) & Chr(13) & "Use default behaviour for test? ", vbYesNo)
If test = vbYes Then
def = True
Else
def = False
End If
End If
Set rptView = rpt.Preview
Set windowEvs = rptView.Parent
Exit Sub ' Exit to avoid handler.
Private Sub windowEvs_LastPageButtonClicked(useDefault As Boolean)
'executed when last page button clicked
If def Then
'test for default behaviour:
MsgBox "Window LastPageButtonClicked event" & Chr(13) & _
Chr(13) & "Parameters:" & Chr(13) & "useDefault: " & _
useDefault & Chr(13) & Chr(13) & "Preview should go to last page"
Else
'test for no default behaviour:
useDefault = False
MsgBox "Window LastPageButtonClicked event" & Chr(13) & _
Chr(13) & "Parameters:" & Chr(13) & "useDefault: " & _
useDefault & Chr(13) & Chr(13) & "Preview should _
NOT go to last page"
End If
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |